1 CLR:DIMB(6):FORB=1TO6:B(B)=1-INT(RND(0)*2)*2:NEXTB:TRAP1:GRAPHICS24:SETCOLOR2,0,0:SETCOLOR1,8,8:COLOR0:FORA=-71TO320STEP5
10 DRAWTOA*B(1)*145,B(2)*50+90:COLOR1:DRAWTO50*B(3)+145,120-A*B(4):DRAWTO175-A*B(5),90:DRAWTO145,A*B(6)+90:NEXTA